home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 November / Ahoy_Magazine_88-11_1988_Double_L.d64 / Joystick Init. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  384b  |  10 lines
  1. 0 poke53280,0:poke53281,0:print"[147]"tab(10)"joystick initials"
  2. 1 rem ==================================
  3. 2 rem    commodares problem #54-1 :
  4. 3 rem       joystick initials
  5. 4 rem    solution by
  6. 5 rem       keith kushner
  7. 6 rem ===== port 1 : c-64 ==============
  8. 10 poke 1520+i,a-31*(a=0):a=q-int(q/27)*27:p=255-peek(56321):q=q-(p=8)+(p=4)
  9. 20 on-(p<>16)goto10:i=i+1+2*(a=0)-((a=0)and(i=0)):on-(i<3)goto10: poke 198,0
  10.